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Input: |X>, Ut(x)) = 10), l™> = lOfiognl) 

1: for i = 1 to n do 

2: if(IXi)=H»then 

3: |w)<-|w+1) 

4: endif 

5: endfor 

6: if (|w) > |t» then 

7: |Ir(x)>*-IWx)01> 

8: endif 

9: for i = n. to 1 do 

10: if (1x0 = H)) then 

11: |w)<-|w-l> 

12: endif 

13: endfor 

Output: |x>, |It(x)>. Iw> = lOpognl) 



FIG. 2 
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